home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS073.dsk / ART DOUBLE CROSS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  594b  |  26 lines
  1. 1  FOR J = 768 TO 781: READ I: POKE J,I: NEXT : DATA 3,0,8,0,10,0,12,0,4,0,128,0,16,0: POKE 232,0: POKE 233,3
  2. 10  HGR 
  3. 20  POKE 49234,0
  4. 21 :
  5. 25  HCOLOR= 4: HPLOT 0,0: CALL 62454
  6. 27  HCOLOR= 0
  7. 28  FOR Z = 0 TO 95: HPLOT 140,Z TO 279,Z: NEXT 
  8. 29  FOR Z = 96 TO 191: HPLOT 0,Z TO 139,Z: NEXT 
  9. 30 :
  10. 35 T = 2
  11. 40  FOR R = 8 TO 64  STEP 8
  12. 45  ROT= R: GOSUB 100
  13. 50  NEXT 
  14. 60 T = T +2: GOTO 40
  15. 98  END 
  16. 99 :
  17. 100  HPLOT 139,96: SCALE= 1: FOR I = 1 TO T: DRAW 2: NEXT 
  18. 105  FOR I = 1 TO 64
  19. 115  ROT= I
  20. 120  XDRAW 1
  21. 130  NEXT 
  22. 140  FOR I = 64 TO 1  STEP  -1
  23. 150  ROT= I
  24. 160  XDRAW 1
  25. 170  NEXT 
  26. 200  RETURN